Przekrój ostrosłupa prawidlowego 
sześciokątnego płaszczyzną zawiera-
jącą najdłuższą przekątną podstawy 
ostrosłupa.

Opracował: Piotr Leszczyński

POKAŻ PŁASZCZYZNĘ PRZEKROJU

Pole przekroju =

Obwód przekroju =

α

a = 4 (slider from 0.1 to 10, step 0.1)
h = 6 (slider from 0.1 to 10, step 0.1)
S: (0, 0, h)
p1 = true
p2 = true
p3 = true
A: (((-a)) / 2, ((-a) * sqrt(3) / 2))
B: ((-x(A)), y(A))
wielokąt1, f, g, i, j, k, l, C, D, E, F = Polygon(A, B, 6)
b, powierzchniaABS, powierzchniaBCS, powierzchniaCDS, powierzchniaDES, powierzchniaEFS, powierzchniaAFS, krawędźAS, krawędźBS, krawędźCS, krawędźDS, krawędźES, krawędźFS = Pyramid(wielokąt1, S)
m = Segment(A, D)
n = Segment(F, C)
p = Segment(B, E)
O = Intersect(p, m)
q = Segment(O, S)
L = Intersect(f, krawędźBS)
α = 0.8377580409572781 rad (slider from 0 to 90°, step 1°)
G = Midpoint(E, F)
r = Segment(O, G)
s = Segment(S, G)
t = OrthogonalLine(G, wielokąt1)
G': (x(G), y(G), ((a * sqrt(3) / 2) * tan(α)))
c = Plane(A, D, G')
H = Intersect(krawędźES, c)
I = Intersect(s, c)
J = Intersect(krawędźFS, c)
q1, a_1, d, h_1, j_1 = Polygon(A, D, H, J)
e = Segment(I, O)
β = Angle(G, O, I)
f_1 = OrthogonalLine(I, wielokąt1)
K = Intersect(f_1, r)
M = Intersect(f_1, wielokąt1)
g_1 = Segment(M, I)
tekst3: "" + q1 + ""
tekst4: "" + (a_1 + d + h_1 + j_1) + ""
N = Point(krawędźAS)
t1, s_1, a_2, d_1 = Polygon(A, D, S)
γ = Angle(G, O, S)
tekst5: "" + t1 + ""
tekst6: "" + (a_1 + a_2 + a_2) + ""
tekst7: "" + (a_1 + a_2 + a_2) + ""